home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Purity
/
Purity #52 (1995-10-30)(PackMAN)(DE)[WB, FFS].zip
/
Purity #52 (1995-10-30)(PackMAN)(DE)[WB, FFS].adf
/
ReadItem
/
ReadItem.p
< prev
next >
Wrap
Text File
|
1995-10-01
|
945b
|
39 lines
{ Zeigt die Verarbeitung von einem Argument aus dem CLI via "ReadItem",
funktioniert nur in der Shell (o. WB-Befehlseingabe) NICHT im Editor.
by PackMAN, Falk Zühlsdorff 4 Purity }
PROGRAM DOS_ReadItem;
{$incl "dos.lib"}
VAR
args : ^string[109];
help : LONG;
BEGIN
OpenLib(DOSBase, "dos.library", 37);
New(args);
help:= ReadItem(args,108,NIL);
CASE help OF
0: writeln('Kein Argument angegeben.');
1: writeln('Argument: ',args^);
-1,
2: IF args^=''
THEN writeln('Es wurden Anführungszeichen genutzt, aber das Argument fehlte.')
ELSE
BEGIN
help:=Pos(' ',args^);
IF help>1 THEN writeln('gekürztes Argument: ',Copy(args^,1,help-1))
ELSE IF help=1 THEN writeln('Argument fehlerhaft...')
ELSE writeln('Argument: ',args^);
END;
ELSE;END;
Dispose(args);
CloseLib(DOSBase);
END.